home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S7.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-14  |  640 b   |  29 lines
  1. 10   PRINT "CHI-SQUARE DISTRIBUTION"
  2. 20   PRINT 
  3. 30   PRINT "(TO END PROGRAM ENTER 0)"
  4. 40   PRINT "DEGREES OF FREEDOM";
  5. 50   INPUT V
  6. 60   IF V = 0 THEN 280
  7. 70   PRINT "CHI-SQUARE";
  8. 80   INPUT W
  9. 90  R = 1
  10. 100   FOR I = V TO 2 STEP  - 2
  11. 110  R = R * I
  12. 120   NEXT I
  13. 130  K = W ^ ( INT ((V + 1) / 2)) *  EXP ( - W / 2) / R
  14. 140   IF  INT (V / 2) = V / 2 THEN 170
  15. 150  J =  SQR (2 / W / 3.14159)
  16. 160   GOTO 180
  17. 170  J = 1
  18. 180  L = 1
  19. 190  M = 1
  20. 200  V = V + 2
  21. 210  M = M * W / V
  22. 220   IF M < 9.8E-08 THEN 250
  23. 230  L = L + M
  24. 240  GOTO 200
  25. 250  PRINT "TAIL END VALUE ="; 1-J * K * L
  26. 260  PRINT
  27. 270  GOTO  40
  28. 280  RUN "STAT"
  29.